#!/usr/bin/perl -l

my @a = 1..3;

sub inc {
  $_++ for @_;
}

inc(@a);
print for @a;
inc('hello');
__DATA__
2
3
4
Modification of a read-only value attempted at - line 6.