$UTF8{Euro} = pack( 'U', 0x20AC ); # Equivalent to: $UTF8{Euro} = "\x{20ac}"; $Unicode{Euro} = unpack( 'U', $UTF8{Euro} ); #### #!/usr/bin/perl my $v{u} = "hello"; print($v{u}, "\n");