#!/usr/bin/perl

@a = (1, 2, 3);
@b = (4, 5, 6);
@c = (7, 8, 9);
$x = 'b';

print "@$x\n";