#!/usr/bin/perl  
use warnings; use strict;

open (my $PHONE_FILE, '<', 'phones.txt') or die "Can't open file: $!\n";

while(<$PHONE_FILE>) {
    chomp;
    my ($col1,$col2,@columns) = split /\t/, $_;
    print "$col1\t$col2\n";
    }