Splitting up $_ and creating an unnamed list
while(<DATA>){ ($name,$phone,$address,$bd,$sal)=split(":"); print "$name\t $phone\n" ; }