#!/usr/bin/perl

use strict;
use warnings;

sub getFiles {
   my @files;
   my $ex;
   
   foreach (@ARGV) {
      push @files, $_ if (-e $_ && m/.+\.[cC]$/);
      print "Couldn't Find $_\n" unless (-e $_);
      print "Invalid file: $_\n" unless (m/^.+\.[cC]$/); 
   }
      return \@files;
}

sub compile {
   my $files = shift;
   my %table;
   foreach (@$files) {
      $table{$_} = substr $_, 0, -2;  
   }
   `gcc $_ -o $table{$_}` foreach (keys %table);
}

compile(getFiles);

##</code><code>##

`gcc $_ -o substr $_, 0, -2` foreach (@$files);