for my $element (@f)
{
   my $key = $element->[0];
   ...
}