#!/usr/bin/env perl -w

@szamok = (45, 23, 72, 54);

print @szamok;
print "\n";
print scalar(@szamok) . "\n";