Select Code to Download

my $result = shift @{[some list function]};

my $result = (some list function)[0];

my ($result) = some list function;