$ext{$1} += (m/([^.]+)$/);

##</code><code>##

$ext{$1} = $ext{$1} + (m/([^.]+)$/);

##</code><code>##

alias $temp = $ext{$1};
$temp = $temp + (m/([^.]+)$/);