#!/usr/bin/perl
use strict;
use warnings;
my $xs = (1,2,3);
my $x = 4;
my $y = 5;
print $xs+$y; #3+5, this is a feature, not bug. read about contexts in Perl
IyEvdXNyL2Jpbi9wZXJsCnVzZSBzdHJpY3Q7CnVzZSB3YXJuaW5nczsKbXkgJHhzID0gKDEsMiwzKTsKbXkgJHggPSA0OwpteSAkeSA9IDU7CnByaW50ICR4cyskeTsgIzMrNSwgdGhpcyBpcyBhIGZlYXR1cmUsIG5vdCBidWcuIHJlYWQgYWJvdXQgY29udGV4dHMgaW4gUGVybA==