use strict;
use warnings;

sub something { return (3,4,5) };

my $x = 'some data'; #scalar
$x .= something; #list

print $x;
# some data5

print "\n";
print something;
# 345