Thank Jkahn

 use Storage;
  my $storage = new Storage();
  use Source;
  use Destination;

  $Source::storage = $storage;
  $Destination::storage = $storage;
[download]

Works for now. I don't know how elegant it is though. It's good for me since I just need a single storage object for the entire file rather than seperate objects. Let's say my storage object is pointing to a database.
2nd solution is considerd good for different storage objects

art of storage
of
an artist.