#!/usr/bin/perl

use strict;
no warnings;

my (@firstkey, @numberofkeys);

my @list = qw /foo housekey blah carkey baz monkey/;

@firstkey     [0] = grep {/key$/} @list;
$numberofkeys [0] = grep {/key$/} @list;

print "@firstkey\n";
print "@numberofkeys\n";

__END__
housekey
3