Contrary to the above nodes this can be done, but perhaps not as exactly as you had envisaged

{
  package Tie::Array::Slice;

  use Tie::Array;

  @ISA = 'Tie::StdArray';

  use Data::Dumper;
  use strict;

  sub FETCH { ${ $_[0]->[ $_[1] ] } }
  sub STORE {
    ref $_[2] ?
      $_[0]->[ $_[1] ] = $_[2]
    : 
      ${ $_[0]->[ $_[1] ] } = $_[2];
  }
}

use strict;

my @a = qw/ one two three four /;
tie my @b, 'Tie::Array::Slice';

@b = (\(@a))[1 .. 2];

print "\$b[1]: $b[1]\n";
print "\$a[2]: $a[2]\n";

print "before \@a: @a\n";
$b[0] = 'xxx';
print "after \@a:  @a\n";

__output__

$b[1]: three
$a[2]: three
before @a: one two three four
after @a:  one xxx three four
[download]

Or if you're in feeling devious then TheDamian illustrates how alias an array slice in this perl6-language post in perl5 :>
HTH

_________
broquaint