#!/bin/perl -w

 %list = (
          "'NEIS.IFMS.CP2#LOAD.CHGT.DAT'" => 0,
          "sqlload / ifmschgt.dat >> ifmschgt.log" => 0,
          "'NEIS.IFMS.CP2#LOAD.TOLT.DAT'" => 0,
           "sqlload / ifmstolt.dat >> ifmstolt.log" => 0
         );

 foreach $key (keys %list) {
     print "$list{$key}\n";
 }