#!/bin/perl

@a = ( 1, 2, 3 );

$b{@a} = "test";

printf("%s\n", $b{@a});