#!/usr/bin/perl -w

$fred = 3;

@fred = ("chocolate", 47, 1.3, "hello", $fred);

$fred = 47;

print "scalar \$fred: $fred\n";
print "array \@fred:  @fred\n";
print "scalar element w/index 2 of array fred, \$fred[2]: ",
      $fred[2], "\n";

@annie = ("one\n", "two\n", "three\n");

print "\@annie before chomp: @annie\n";

chomp(@annie);

print "\@annie after chomp: @annie\n";