sub del {
my $output="data.txt";
my ($delroadName, $delroadNumber) = @_;
open(DAT,"$output") || die("Can't open file");
my @data = <DAT>;
close (DAT);
chomp (@data);
open(DAT,">$output") || die("Can't open file");
for (@data) {
my @field = split(/\:/);
next if $field[0] eq $delroadName && $field[0] == $delroadNumber; 
print ("$_\n");        
}
close $output;
}