Help for this page
$firstele = shift; $secondele = shift; $thirdele = shift;
my ($first, $second, $third) = @_;
$first = "this is a test" $second = "what" $third = "is"