#!/usr/bin/perl -w
use strict;

( $2, $66 ) = ( 1, 2 );
__END__
Modification of a read-only value attempted at - line 4.