open (FILE, "< $joblist_file") || die "Can't open $joblist_file! $!\n";  
@file = <FILE>;
close FILE; 

my $counter = 0;
my $acounter = @file;

print"arraysize $acounter\n";
foreach $line (@file)
  {
  print "count $counter\n";
  print "$line\n";
  $counter++;
  }