$keys = '';
$keys .= 'field' . 'A';
@keys = split /field/, $keys, -1; # grabs trailing zero-lengths
pop @keys;