#!/usr/local/bin/perl6 my $a=1; .say;