#!/usr/bin/perl -w

@foo = ("lkjd","dnvd");
print @foo,"\n";
print "$foo[0]\n";
print "$foo[1]\n";