Or perhaps:

use feature ":5.14";
use warnings FATAL => qw(all);
use strict;

my @lines = split /\n/, << 'END';
111 aaa bbb
222 ccc ddd
333 eee fff
END

say join "\t", @{[split]}[0,1] for @lines;
[download]

Produces:

111	aaa
222	ccc
333	eee