$firstele = shift;
$secondele = shift;
$thirdele = shift;

##</code><code>##

my ($first, $second, $third) = @_;

##</code><code>##

$first = "this is a test"
$second = "what"
$third = "is"