try
#!/usr/bin/perl
$shadow_file="local/scripts/test_shadow";
if (open(SHADOW, $shadow_file)) {
@array_data=<SHADOW>;
print @array_data;
close (SHADOW);
foreach $column (@array_data)
{chop ($column);
($column1, $column2)=split(/:/, $column);
print "$column1, $column2";
}
} else {
print "Could...