view _test/temp.pl @ 83:74bae30eb25e

(no commit message)
author wizard
date Tue, 13 Apr 2010 20:27:56 +0400
parents
children 52eeec77504b
line wrap: on
line source

#!/usr/bin/perl

my @data = (1,2,3);

$data[4] = 4;

print @data;