{
    my $vec; 
    vec( $vec, 0, 1 ) = 1; 
};;
Use of uninitialized value $vec in vec at (eval 9) line 1, <STDIN> line 1.
Use of uninitialized value $vec in scalar assignment at (eval 9) line 1, <STDIN> line 1.

{ 
    my $vec = ''; 
    vec( $vec, 0, 1 ) = 1; 
};;