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

##</code><code>##

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

##</code><code>##

my ($result) = some list function;