#!/usr/bin/perl
use strict;
use warnings;
 
my $file = $ARGV[0] or die "Need to get CSV file on the command line\n";
my $outfile = $ARGV[1] or die "Need to get output file on the command line\n";


my $sum = 0;
open(my $data, '<', $file) or die "Could not open '$file' $!\n";
open (OUTFILE, "> $outfile") || die "ERROR: opening $outfile\n";
open (OUTFILE_1, "> 1$outfile") || die "ERROR: opening $outfile\n";
 
while (my $line = <$data>) {
  chomp $line;
  
  my @fields = split "," , $line, -1;;

  		my $sum = "$fields[0]";
  		#$fields[1] = "$sum";
		if ($sum =~ /^628?$/ )
		{
		#s/^628+//;
		$line= join( ",", @fields ) . "\n" ;
		print OUTFILE ("$line");
		}
		else {
		$line= join( ",", @fields ) . "\n" ;
		print OUTFILE_1 ("$line");
		
		}
}


close ($data);
close (OUTFILE);
close (OUTFILE_1);