open ( SMI, "schema_migration.csv") or die "$!"; # buffering the newschema { @schema_migration = ; map { $_ =~ s/\n//g } @schema_migration; } print "\n"; print "\nout :$schema_migration[3]:\n"; exit; #### :ut :nokia_card_traffic_classes_raw.day,nokia_card_traffic_classes_dl_raw.day