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