Select Code to Download

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

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

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