#!/usr/bin/env /friends/.rakudobrew/bin/perl6
my  @a = <1 2 3 4>;
{ say @a.index($_) } for @a