foreach (@ARGV) {
  if ($_ eq "complete") {
    $change="cmplt";
  } else {
    if ($_ eq "srces") {
      $change="src";
    } else {
      push ($printof{$change}, $_);
    }
  }
}