sub format_output {
     my var1 = $_[0];
     my var2 = $_[1];
     my array = $_[2];
     do_some_stff
}

my @array = 0x00;
@tmparray = split('',$scalar);
@array = splice(@tmparray, 8, 6);
&format_address(":", 0, @array);