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