Perl Basics

my $hello_world = "Hello World\n";
print($hello_world);

###########################################

my $user_name;
print("Enter your name: ");
$user_name = <STDIN>;
chomp($user_name);

printf("Hello %s", $user_name);

###########################################

my @my_ray = (1,2,3,4,5);

for(@my_ray){
  print($_);
}

my $first_value = shift @my_ray;
print("\n$first_value");

my $last_value = pop @my_ray;
print("\n$last_value");