#!/usr/bin/perl

@tasks = qw(plan simulation analysis);
@priorities = @tasks[0,1];

print "Tasks are: @tasks\n";
print "Priorities are: @priorities\n";

# prints the following:
# Tasks are: plan simulation analysis
# Priorities are: plan simulation

$tasks[1] = "computation";  #changes @tasks not @priorities
print "Tasks are: @tasks\n";
print "Priorities are: @priorities\n";

# prints the following:
# Tasks are: plan computation analysis
# Priorities are: plan simulation