foreach (@$files) {
      $table{$_} = substr $_, 0, -2;  
   }

##</code><code>##

>perl -wMstrict -le
"print qq{gcc $_->[0] -o $_->[1]}
   for
     map [ $_, s{ [.] [^.]* \z }{}xmsr ],
     qw(see cee. foo.c foo/bar.cc foo/bar/baz.cpp)
     ;
"
gcc see -o see
gcc cee. -o cee
gcc foo.c -o foo
gcc foo/bar.cc -o foo/bar
gcc foo/bar/baz.cpp -o foo/bar/baz

##</code><code>##

>perl -wMstrict -le
"print qq{gcc $_ -o @{[ s{ [.] [^.]* \z }{}xmsr ]}}
   for qw(see cee. foo.c foo/bar.cc foo/bar/baz.cpp);
"
gcc see -o see
gcc cee. -o cee
gcc foo.c -o foo
gcc foo/bar.cc -o foo/bar
gcc foo/bar/baz.cpp -o foo/bar/baz