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

open (my $f, '<', 'abc.txt') or die;

while (my $line = <$f>) {
  my @elems = split ' ', $line;
  print " ", $elems[0];
  print "\n";
}