use strict;
use IO::File;
my $Mer = new IO::File "Extracted.c", "r"
  or die "Can not open file!";
my %vars;
while my $mer (<$Mer>) {
...
}