#!/usr/local/bin/perl
use strict;
use warnings;

my $num = 0;
print "Hello\n";
print "$num\n";
my @data = (3,2,4);
foreach (@data){
    print "$_\n";
}