In map, grep, and in "for" loops, $_ is an alias to the current item, so this would work also:

my @short_sizes = @in_sub_filesize_names;
s/^(\w)\w{1,}$/$1b/ for @short_sizes;
[download]