my ($firstkey)   = grep {/key$/} @list;
my $numberofkeys = grep {/key$/} @list;