my $long = [ map $_->{longname}, @$ls ];
print Dumper($long);