#!/usr/bin/perl 
use strict;
use warnings;

my $input = $ARGV[0] || 'bar';
my @repo  = qw(foo baz bar boo);

my $i; 
map{ print $i if /$input/; $i++ } @repo;