#! /usr/local/bin/perl5 $scalar = "how are you today"; @array = split(/ /,$scalar); print("Here is my scalar: $scalar \n"); print("And here is my array: @array \n"); @sort = sort(@array); print("let's alphabetize our array: @sort \n\n"); @array = split(/o/,$scalar); print("Here I split the scalar in a different way: @array \n"); $scalar = join("\$",@array); print("Here I joined it with a special character: $scalar \n"); @sort = sort(@array); print("let's alphabetize our new array: @sort \n");