#!/usr/bin/perl -w
use Cwd;
use strict;

for (qw(
/home/bubba/served
/home/bubba/served/a
/home/bubba/served/a/filehere
)){

	printf "$_ = %s\n",Cwd::abs_path($_);
}