Use split:

19:20 >perl -MData::Dump -we "my $line = qq[1 10 8 6\n]; chomp $line; 
+my @data = split / /, $line; dd \@data;"
[1, 10, 8, 6]

19:20 >
[download]

Hope that helps,

I am not quite sure i understand your solution. Is there an easier way? Something like: @data = <STDIN>; #or it may be not an array Then somehow the data from array is shifted into separate variable values? Is there any way to do it? I've

Input is separated by $/, which is a newline "\n" by default. You can set it to something else, but using split is more common:

my (@data) = split ' ', <>; # ' ' means split on any whitespace.
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

# read one line of input
my $line = <STDIN>;
# remove the line ending
chomp $line;

# then either
my ($foo, $bar, $baz, $quux) = split(/ +/, $line);

# or
my (@data) = split(/ +/, $line);

# the latter is better if you don't know how many elements you'll get
[download]