my $data; print $data++;