#!/usr/bin/env /friends/.rakudobrew/bin/perl6 use strict; use warnings; @names=("マイキー", "エミリー", "ローラ"); ($a, $b, $c)=@names; print $names[1];